home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BAMMAP.ARC / BAM 1 (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  273 b   |  18 lines
  1. 10 ;BAM 1
  2. 20 LDA #$00;RESET TRACK AND SECTOR
  3. 30 STA TRK
  4. 40 STA SEC
  5. 50 STA CTR1
  6. 60 ;
  7. 70 JSR SCREEN;INTRO SCREEN
  8. 80 SCRLP JSR GET
  9. 90 CMP #$0D;WAIT FOR RETURN KEY
  10. 100 BNE SCRLP
  11. 110 ;
  12. 120 LDY #<A;FILL BUFFERS WITH 0
  13. 130 LDA #$00
  14. 140 BBM STA A,Y
  15. 150 INY
  16. 160 BNE BBM
  17. 170 .FILE BAM 2
  18.